# Required fxn: 'cluster1 n'

m1=c(8,12,4,5,6,6,7,5,8,3,2,6,5,10,9,3,6,5,5,4,6,8,7,3,8)
y2=c(96000,121000,42000,65000,52000,40000,75000,65000,45000,50000,85000,43000,54000,49000,53000,
50000,32000,22000,45000,37000,51000,30000,39000,47000,41000)

N1=415


m2=c(2,5,7,4,3,8,6,10,3,1)
y2=c18000,52000,68000,36000,45000,96000,64000,115000,41000,12000)
N2=168

strata=c(rep(1,each=25),rep(2,each=10))
yi=c(y1,y2)
mi=c(m1,m2)
ni=c(25,10)
Ni=c(N1,N2)


c1.strs('income',yi,strata,mi,ni,Ni)